home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Tele / S / SS Stack 12⁄91.cpt / The SS stack 12_91 / The SS stack 12_91 / background_2634.txt < prev    next >
Encoding:
Text File  |  1991-12-02  |  29.5 KB  |  1,307 lines
  1. -- background: 2634 from stack: in
  2. -- bmap block id: 6388
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: NORMAL BACKGROUND
  6.  
  7.  
  8. -- part 71 (field)
  9. -- low flags: 02
  10. -- high flags: 0000
  11. -- rect: left=96 top=23 right=38 bottom=486
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: phone number
  20.  
  21.  
  22. -- part 72 (field)
  23. -- low flags: 02
  24. -- high flags: 0000
  25. -- rect: left=96 top=40 right=55 bottom=486
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: bbs name
  34.  
  35.  
  36. -- part 73 (field)
  37. -- low flags: 02
  38. -- high flags: 0000
  39. -- rect: left=96 top=58 right=73 bottom=486
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 9
  45. -- style flags: 0
  46. -- line height: 12
  47. -- part name: hours
  48.  
  49.  
  50. -- part 74 (field)
  51. -- low flags: 02
  52. -- high flags: 0000
  53. -- rect: left=96 top=76 right=91 bottom=486
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 9
  59. -- style flags: 0
  60. -- line height: 12
  61. -- part name: speeds
  62.  
  63.  
  64. -- part 103 (field)
  65. -- low flags: 02
  66. -- high flags: 0000
  67. -- rect: left=96 top=94 right=109 bottom=486
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 9
  73. -- style flags: 0
  74. -- line height: 12
  75. -- part name: Location
  76.  
  77.  
  78. -- part 75 (field)
  79. -- low flags: 02
  80. -- high flags: 0000
  81. -- rect: left=96 top=112 right=127 bottom=486
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 9
  87. -- style flags: 0
  88. -- line height: 12
  89. -- part name: sysop
  90. ----- HyperTalk script -----
  91.  
  92.  
  93.  
  94.  
  95. -- part 76 (field)
  96. -- low flags: 02
  97. -- high flags: 0000
  98. -- rect: left=96 top=130 right=145 bottom=486
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 3
  103. -- text size: 9
  104. -- style flags: 0
  105. -- line height: 12
  106. -- part name: open to public?
  107.  
  108.  
  109. -- part 77 (field)
  110. -- low flags: 02
  111. -- high flags: 0000
  112. -- rect: left=96 top=148 right=163 bottom=486
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 0
  116. -- font id: 3
  117. -- text size: 9
  118. -- style flags: 0
  119. -- line height: 12
  120. -- part name: fee?
  121.  
  122.  
  123. -- part 91 (button)
  124. -- low flags: 00
  125. -- high flags: 2004
  126. -- rect: left=444 top=296 right=329 bottom=488
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 8419 / 8419
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: NEXT
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   visual effect dissolve to gray
  138.   visual effect scroll left
  139.   go to next card
  140. end mouseUp
  141.  
  142.  
  143. -- part 97 (button)
  144. -- low flags: 00
  145. -- high flags: 2004
  146. -- rect: left=444 top=220 right=253 bottom=488
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 1011 / 1011
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: HOME
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   getHomeInfo
  158.   visual effect barn door close to gray
  159.   visual effect barn door open
  160.   go home
  161. end mouseUp
  162.  
  163.  
  164.  
  165.  
  166. -- part 98 (button)
  167. -- low flags: 00
  168. -- high flags: 2004
  169. -- rect: left=444 top=258 right=291 bottom=488
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 17779 / 17779
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: PREV
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   visual effect dissolve to gray
  181.   visual effect scroll right
  182.   go to previous card
  183. end mouseUp
  184.  
  185.  
  186. -- part 139 (button)
  187. -- low flags: 00
  188. -- high flags: A004
  189. -- rect: left=255 top=277 right=329 bottom=333
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 32670 / 32670
  192. -- text alignment: 1
  193. -- font id: 0
  194. -- text size: 12
  195. -- style flags: 0
  196. -- line height: 16
  197. -- part name: Scan all cards
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   get last item of the screenRect
  201.   if it > 342 then show message box at 20,357
  202.   else
  203.     show message box at 21,301
  204.   end if
  205.   put "Click the mouse to stop the scanning..."
  206.   repeat until the mouseclick
  207.     set cursor to busy
  208.     visual effect dissolve to gray
  209.     set cursor to busy
  210.     visual effect scroll left
  211.     set cursor to busy
  212.     go to next card
  213.     set cursor to busy
  214.     wait 1 seconds
  215.   end repeat
  216.   hide message box
  217. end mouseUp
  218.  
  219.  
  220.  
  221.  
  222. -- part 155 (button)
  223. -- low flags: 00
  224. -- high flags: A004
  225. -- rect: left=26 top=219 right=271 bottom=136
  226. -- title width / last selected line: 0
  227. -- icon id / first selected line: 23670 / 23670
  228. -- text alignment: 1
  229. -- font id: 0
  230. -- text size: 12
  231. -- style flags: 0
  232. -- line height: 16
  233. -- part name: Dial with White Knight
  234. ----- HyperTalk script -----
  235. on mouseUp
  236.   get userlevel
  237.   if it = 1
  238.   then set userLevel to 2
  239. else
  240.   if it = 5
  241.   then set userlevel to it
  242. end if
  243. get loc of field "Last Verified"
  244. click at it
  245. type tab
  246. DoMenu Copy Text
  247. If highlite of background button ID 156 is true then
  248.   get last item of the screenRect
  249.   if it > 342 then show message box at 20,357
  250.   else
  251.     show message box at 21,301
  252.   end if
  253.   put "Now dialing the selected BBS at 1200 with White Knight..."
  254.   Open "Dial1200.PROC" with "White Knight"
  255.   wait 1 second
  256.   hide message box
  257. else
  258.   If highlite of background button ID 157 is true then
  259.     get last item of the screenRect
  260.     if it > 342 then show message box at 20,357
  261.     else
  262.       show message box at 21,301
  263.     end if
  264.     put "Now dialing the selected BBS at 2400 with White Knight..."
  265.     Open "Dial2400.PROC" with "White Knight"
  266.     wait 1 second
  267.     hide message box
  268.   else
  269.     If highlite of background button ID 158 is true then
  270.       get last item of the screenRect
  271.       if it > 342 then show message box at 20,357
  272.       else
  273.         show message box at 21,301
  274.       end if
  275.       put "Now dialing the selected BBS at 9600 with White Knight..."
  276.       Open "Dial9600.PROC" with "White Knight"
  277.       wait 1 second
  278.       hide message box
  279.     else
  280.     end if
  281.   end if
  282. end if
  283. end mouseUp
  284.  
  285.  
  286.  
  287. -- part 156 (button)
  288. -- low flags: 00
  289. -- high flags: 8006
  290. -- rect: left=53 top=277 right=294 bottom=107
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 0
  295. -- text size: 12
  296. -- style flags: 0
  297. -- line height: 16
  298. -- part name: 1200
  299. ----- HyperTalk script -----
  300. on mouseUp
  301.   set highlite of bkgnd button ID 156 to true
  302.   set highlite of bkgnd button ID 157 to false
  303.   set highlite of bkgnd button ID 158 to false
  304. end mouseUp
  305.  
  306.  
  307.  
  308. -- part 157 (button)
  309. -- low flags: 00
  310. -- high flags: C006
  311. -- rect: left=53 top=294 right=310 bottom=107
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 0 / 0
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: 2400
  320. ----- HyperTalk script -----
  321. on mouseUp
  322.   set highlite of bkgnd button ID 156 to false
  323.   set highlite of bkgnd button ID 157 to true
  324.   set highlite of bkgnd button ID 158 to false
  325. end mouseUp
  326.  
  327.  
  328.  
  329. -- part 158 (button)
  330. -- low flags: 00
  331. -- high flags: 8006
  332. -- rect: left=53 top=311 right=327 bottom=108
  333. -- title width / last selected line: 0
  334. -- icon id / first selected line: 0 / 0
  335. -- text alignment: 1
  336. -- font id: 0
  337. -- text size: 12
  338. -- style flags: 0
  339. -- line height: 16
  340. -- part name: 9600
  341. ----- HyperTalk script -----
  342. on mouseUp
  343.   set highlite of bkgnd button ID 156 to false
  344.   set highlite of bkgnd button ID 157 to false
  345.   set highlite of bkgnd button ID 158 to true
  346. end mouseUp
  347.  
  348.  
  349.  
  350. -- part 189 (field)
  351. -- low flags: 02
  352. -- high flags: 0000
  353. -- rect: left=96 top=167 right=181 bottom=486
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 0
  357. -- font id: 3
  358. -- text size: 9
  359. -- style flags: 0
  360. -- line height: 12
  361. -- part name: Nodes
  362.  
  363.  
  364. -- part 179 (button)
  365. -- low flags: 00
  366. -- high flags: A004
  367. -- rect: left=162 top=277 right=329 bottom=249
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 8538 / 8538
  370. -- text alignment: 1
  371. -- font id: 0
  372. -- text size: 12
  373. -- style flags: 0
  374. -- line height: 16
  375. -- part name: Search all fields
  376. ----- HyperTalk script -----
  377. on mouseUp
  378.   hide card window
  379.   ask "Enter text to search all the fields for:"
  380.   put it into searchtext
  381.   if it is empty then CleanExit
  382.   else
  383.     set cursor to busy
  384.     show card window
  385.     get last item of the screenRect
  386.     if it > 342 then show message box at 20,357
  387.     else
  388.       show message box at 21,301
  389.     end if
  390.     put "Click the mouse to stop the searching..."
  391.     repeat until the mouseclick
  392.       set cursor to busy
  393.       Find string searchtext
  394.       set cursor to Busy
  395.       wait 1 seconds
  396.       set cursor to Busy
  397.       visual effect dissolve to gray
  398.       set cursor to Busy
  399.       visual effect scroll left
  400.       set cursor to Busy
  401.     end repeat
  402.     hide message box
  403.   end if
  404.  
  405. end mouseUp
  406.  
  407.  
  408. on CleanExit
  409.   hide message box
  410.   show card window
  411. end CleanExit
  412.  
  413.  
  414.  
  415. -- part 86 (field)
  416. -- low flags: 02
  417. -- high flags: 0000
  418. -- rect: left=96 top=184 right=200 bottom=233
  419. -- title width / last selected line: 0
  420. -- icon id / first selected line: 0 / 0
  421. -- text alignment: 0
  422. -- font id: 3
  423. -- text size: 9
  424. -- style flags: 0
  425. -- line height: 14
  426. -- part name: Since
  427.  
  428.  
  429. -- part 88 (field)
  430. -- low flags: 02
  431. -- high flags: 0000
  432. -- rect: left=309 top=183 right=199 bottom=487
  433. -- title width / last selected line: 0
  434. -- icon id / first selected line: 0 / 0
  435. -- text alignment: 0
  436. -- font id: 3
  437. -- text size: 9
  438. -- style flags: 0
  439. -- line height: 14
  440. -- part name: Last Verified
  441. ----- HyperTalk script -----
  442.  
  443.  
  444.  
  445.  
  446. -- part 194 (button)
  447. -- low flags: 00
  448. -- high flags: A004
  449. -- rect: left=338 top=277 right=329 bottom=426
  450. -- title width / last selected line: 0
  451. -- icon id / first selected line: 20186 / 20186
  452. -- text alignment: 1
  453. -- font id: 0
  454. -- text size: 12
  455. -- style flags: 0
  456. -- line height: 16
  457. -- part name: Sort by area code
  458. ----- HyperTalk script -----
  459. on mouseUp
  460.   --
  461.   hide card window
  462.   show message box at 19,153
  463.   put "Now sorting the listings by area code..."
  464.   --
  465.   sort by field 1
  466.   --
  467.   put "sorting completed!"
  468.   beep
  469.   hide message box
  470.   show card window
  471. end mouseUp
  472.  
  473.  
  474.  
  475. -- part 196 (button)
  476. -- low flags: 00
  477. -- high flags: A004
  478. -- rect: left=273 top=219 right=271 bottom=368
  479. -- title width / last selected line: 0
  480. -- icon id / first selected line: 1004 / 1004
  481. -- text alignment: 1
  482. -- font id: 0
  483. -- text size: 12
  484. -- style flags: 0
  485. -- line height: 16
  486. -- part name: create tabbed List
  487. ----- HyperTalk script -----
  488. on mouseUp
  489.   hide card window
  490.   put NewFileName("New name for this file:", "tabbed list") into shortRRHostList
  491.   if shortRRHostList is not empty then
  492.     --
  493.     open file shortRRHostList
  494.     --
  495.     show message box at 19,153
  496.     put "Sorting the cards by area code ..."
  497.     --
  498.     sort by field 1
  499.     --
  500.     put "sorting completed!"
  501.     hide message box
  502.     ---
  503.     Progress 1, "Now creating a tabbed List"
  504.     lock screen
  505.     put the ID of this card into backhere
  506.     repeat with i=1 to the number of cards
  507.       go card i
  508.       Progress 2,(i/the number of cards)*100
  509.       write field 1 to file shortRRHostList
  510.       write tab to file shortRRHostList
  511.       write field 2 to file shortRRHostList
  512.       write tab to file shortRRHostList
  513.       write field 3 to file shortRRHostList
  514.       write tab to file shortRRHostList
  515.       write field 4 to file shortRRHostList
  516.       write tab to file shortRRHostList
  517.       write field 5 to file shortRRHostList
  518.       write tab to file shortRRHostList
  519.       write field 6 to file shortRRHostList
  520.       write tab to file shortRRHostList
  521.       write field 7 to file shortRRHostList
  522.       write tab to file shortRRHostList
  523.       write field 8 to file shortRRHostList
  524.       write tab to file shortRRHostList
  525.       write field 9 to file shortRRHostList
  526.       write tab to file shortRRHostList
  527.       write field 10 to file shortRRHostList
  528.       write tab to file shortRRHostList
  529.       write field 11 to file shortRRHostList
  530.       write return to file shortRRHostList
  531.       go to next card
  532.     end repeat
  533.     Progress 3
  534.     go backhere
  535.     unlock screen
  536.     close file shortRRHostList
  537.     --
  538.     beep
  539.   end if
  540.   show card window
  541.   --
  542. end mouseUp
  543.  
  544.  
  545.  
  546. -- part 205 (button)
  547. -- low flags: 00
  548. -- high flags: 2000
  549. -- rect: left=26 top=20 right=39 bottom=90
  550. -- title width / last selected line: 0
  551. -- icon id / first selected line: 0 / 0
  552. -- text alignment: 1
  553. -- font id: 0
  554. -- text size: 12
  555. -- style flags: 0
  556. -- line height: 16
  557. -- part name: FIND Phone
  558. ----- HyperTalk script -----
  559. on mouseUp
  560.   hide card window
  561.   ask "Enter text to search  'Phone:'  field for:"
  562.   put it into searchtext
  563.   if it is empty then CleanExit
  564.   else
  565.     show card window
  566.     get last item of the screenRect
  567.     if it > 342 then show message box at 20,357
  568.     else
  569.       show message box at 21,301
  570.     end if
  571.     put "Click the mouse to stop the searching..."
  572.     show card window
  573.     repeat until the mouseclick
  574.       set cursor to busy
  575.       Find string searchtext in background field ID 71
  576.       set cursor to Busy
  577.       wait 1 seconds
  578.       set cursor to Busy
  579.       visual effect dissolve to gray
  580.       set cursor to Busy
  581.       visual effect scroll left
  582.       set cursor to Busy
  583.     end repeat
  584.     hide message box
  585.   end if
  586. end mouseUp
  587.  
  588. on CleanExit
  589.   hide message box
  590.   show card window
  591. end CleanExit
  592.  
  593.  
  594.  
  595. -- part 208 (button)
  596. -- low flags: 00
  597. -- high flags: A004
  598. -- rect: left=374 top=219 right=271 bottom=426
  599. -- title width / last selected line: 0
  600. -- icon id / first selected line: 21060 / 21060
  601. -- text alignment: 1
  602. -- font id: 0
  603. -- text size: 12
  604. -- style flags: 0
  605. -- line height: 16
  606. -- part name: Help
  607. ----- HyperTalk script -----
  608. on mouseUp
  609.   lock screen
  610.   go to card ID 38544
  611.   show card field "help Field"
  612.   unlock screen with visual effect zoom out
  613. end mouseUp
  614.  
  615.  
  616.  
  617.  
  618. -- part 207 (button)
  619. -- low flags: 00
  620. -- high flags: A004
  621. -- rect: left=162 top=219 right=271 bottom=267
  622. -- title width / last selected line: 0
  623. -- icon id / first selected line: 1004 / 1004
  624. -- text alignment: 1
  625. -- font id: 0
  626. -- text size: 12
  627. -- style flags: 0
  628. -- line height: 16
  629. -- part name: create The SS List
  630. ----- HyperTalk script -----
  631. on mouseUp
  632.   hide card window
  633.   put NewFileName("New name for this file:", "The SS List") into shortRRHostList
  634.   if shortRRHostList is not empty then
  635.     --
  636.     put "   "into TEMP0
  637.     put "The SS List / " into TEMP12
  638.     put "Maintained by James VanGeyten / " into TEMP13
  639.     put "Mac's Last Stand 716-264-9106" into TEMP14
  640.     put "Created with The SS Stack " into TEMP15
  641.     put "on " into TEMP17
  642.     put the short date into TEMP18
  643.     put " at " into TEMP19
  644.     put the long time into TEMP20
  645.     --
  646.     put "* If 'Hours:' is not listed, then 24 hour operation" into TEMP22
  647.     put "* If 'Public:' is not listed," into TEMP23
  648.     put " then it is considered Public" into TEMP25
  649.     put "* If 'Fee:' is not listed, then there is no Fee" into TEMP24
  650.     ---
  651.     put "Phone:    " into TEMP1
  652.     put "Name:     " into TEMP2
  653.     put "Hours:    " into TEMP3
  654.     put "Speeds:   " into TEMP4
  655.     put "Location: " into TEMP5
  656.     put "Sysop:    " into TEMP6
  657.     put "Public:   " into TEMP7
  658.     put "Fee:      " into TEMP8
  659.     put "Node:     " into TEMP9
  660.     put "Since:    " into TEMP10
  661.     put "Verified: " into TEMP11
  662.     ---
  663.     open file shortRRHostList
  664.     ---
  665.     write TEMP12 to file shortRRHostList
  666.     write TEMP13 to file shortRRHostList
  667.     write TEMP14 to file shortRRHostList
  668.     write return to file shortRRHostList
  669.     write TEMP15 to file shortRRHostList
  670.     write TEMP17 to file shortRRHostList
  671.     write TEMP18 to file shortRRHostList
  672.     write TEMP19 to file shortRRHostList
  673.     write TEMP20 to file shortRRHostList
  674.     write return to file shortRRHostList
  675.     write return to file shortRRHostList
  676.     write TEMP22 to file shortRRHostList
  677.     write return to file shortRRHostList
  678.     write TEMP23 to file shortRRHostList
  679.     write TEMP25 to file shortRRHostList
  680.     write return to file shortRRHostList
  681.     write TEMP24 to file shortRRHostList
  682.     write return to file shortRRHostList
  683.     write return to file shortRRHostList
  684.     --
  685.     show message box at 19,153
  686.     put "Sorting the cards by area code ..."
  687.     --
  688.     sort by field 1
  689.     --
  690.     put "sorting completed!"
  691.     hide message box
  692.     ---
  693.     set cursor to Busy
  694.     Progress 1, "... Now creating The SS List"
  695.     lock screen
  696.     put the ID of this card into backhere
  697.     repeat with i=1 to the number of cards
  698.       go card i
  699.       Progress 2,(i/the number of cards)*100
  700.       set cursor to Busy
  701.       write TEMP0 to file shortRRHostList
  702.       write return to file shortRRHostList
  703.       set cursor to Busy
  704.       ----
  705.       if field 1 is not empty
  706.       then
  707.       write TEMP1 to file shortRRHostList
  708.       write field 1 to file shortRRHostList
  709.       write return to file shortRRHostList
  710.     else
  711.     end if
  712.     set cursor to Busy
  713.     ----
  714.     if field 2 is not empty
  715.     then
  716.     write TEMP2 to file shortRRHostList
  717.     write field 2 to file shortRRHostList
  718.     write return to file shortRRHostList
  719.   else
  720.   end if
  721.   set cursor to Busy
  722.   ----
  723.   if field 3 is not empty
  724.   then
  725.   write TEMP3 to file shortRRHostList
  726.   write field 3 to file shortRRHostList
  727.   write return to file shortRRHostList
  728. else
  729. end if
  730. set cursor to Busy
  731. ----
  732. if field 4 is not empty
  733. then
  734. write TEMP4 to file shortRRHostList
  735. write field 4 to file shortRRHostList
  736. write return to file shortRRHostList
  737. else
  738. end if
  739. set cursor to Busy
  740. ----
  741. if field 5 is not empty
  742. then
  743. write TEMP5 to file shortRRHostList
  744. write field 5 to file shortRRHostList
  745. write return to file shortRRHostList
  746. else
  747. end if
  748. set cursor to Busy
  749. ----
  750. if field 6 is not empty
  751. then
  752. write TEMP6 to file shortRRHostList
  753. write field 6 to file shortRRHostList
  754. write return to file shortRRHostList
  755. else
  756. end if
  757. set cursor to Busy
  758. ----
  759. if field 7 is not empty
  760. then
  761. write TEMP7 to file shortRRHostList
  762. write field 7 to file shortRRHostList
  763. write return to file shortRRHostList
  764. else
  765. end if
  766. set cursor to Busy
  767. ----
  768. if field 8 is not empty
  769. then
  770. write TEMP8 to file shortRRHostList
  771. write field 8 to file shortRRHostList
  772. write return to file shortRRHostList
  773. else
  774. end if
  775. set cursor to Busy
  776. ---
  777. if field 9 is not empty
  778. then
  779. write TEMP9 to file shortRRHostList
  780. write field 9 to file shortRRHostList
  781. write return to file shortRRHostList
  782. else
  783. end if
  784. set cursor to Busy
  785. ----
  786. if field 10 is not empty
  787. then
  788. write TEMP10 to file shortRRHostList
  789. write field 10 to file shortRRHostList
  790. write return to file shortRRHostList
  791. else
  792. end if
  793. set cursor to Busy
  794. ----
  795. if field 11 is not empty
  796. then
  797. write TEMP11 to file shortRRHostList
  798. write field 11 to file shortRRHostList
  799. write return to file shortRRHostList
  800. else
  801. end if
  802. set cursor to Busy
  803. ----
  804. go to next card
  805. end repeat
  806. Progress 3
  807. go backhere
  808. unlock screen
  809. close file shortRRHostList
  810. --
  811. beep
  812. end if
  813. show card window
  814. --
  815. end mouseUp
  816.  
  817.  
  818.  
  819. -- part 210 (button)
  820. -- low flags: 00
  821. -- high flags: 2000
  822. -- rect: left=26 top=38 right=57 bottom=90
  823. -- title width / last selected line: 0
  824. -- icon id / first selected line: 0 / 0
  825. -- text alignment: 1
  826. -- font id: 0
  827. -- text size: 12
  828. -- style flags: 0
  829. -- line height: 16
  830. -- part name: FIND name
  831. ----- HyperTalk script -----
  832. on mouseUp
  833.   hide card window
  834.   ask "Enter text to search  'Name:'  field for:"
  835.   put it into searchtext
  836.   if it is empty then CleanExit
  837.   else
  838.     show card window
  839.     get last item of the screenRect
  840.     if it > 342 then show message box at 20,357
  841.     else
  842.       show message box at 21,301
  843.     end if
  844.     put "Click the mouse to stop the searching..."
  845.     show card window
  846.     repeat until the mouseclick
  847.       set cursor to busy
  848.       Find string searchtext in background field ID 72
  849.       set cursor to Busy
  850.       wait 1 seconds
  851.       set cursor to Busy
  852.       visual effect dissolve to gray
  853.       set cursor to Busy
  854.       visual effect scroll left
  855.       set cursor to Busy
  856.     end repeat
  857.     hide message box
  858.   end if
  859. end mouseUp
  860.  
  861. on CleanExit
  862.   hide message box
  863.   show card window
  864. end CleanExit
  865.  
  866.  
  867.  
  868. -- part 211 (button)
  869. -- low flags: 00
  870. -- high flags: 2000
  871. -- rect: left=26 top=56 right=75 bottom=90
  872. -- title width / last selected line: 0
  873. -- icon id / first selected line: 0 / 0
  874. -- text alignment: 1
  875. -- font id: 0
  876. -- text size: 12
  877. -- style flags: 0
  878. -- line height: 16
  879. -- part name: Hours location
  880. ----- HyperTalk script -----
  881. on mouseUp
  882.   hide card window
  883.   ask "Enter text to search 'Hours:' field for:"
  884.   put it into searchtext
  885.   if it is empty then CleanExit
  886.   else
  887.     show card window
  888.     get last item of the screenRect
  889.     if it > 342 then show message box at 20,357
  890.     else
  891.       show message box at 21,301
  892.     end if
  893.     put "Click the mouse to stop the searching..."
  894.     show card window
  895.     repeat until the mouseclick
  896.       set cursor to busy
  897.       Find string searchtext in background field ID 73
  898.       set cursor to Busy
  899.       wait 1 seconds
  900.       set cursor to Busy
  901.       visual effect dissolve to gray
  902.       set cursor to Busy
  903.       visual effect scroll left
  904.       set cursor to Busy
  905.     end repeat
  906.     hide message box
  907.   end if
  908. end mouseUp
  909.  
  910. on CleanExit
  911.   hide message box
  912.   show card window
  913. end CleanExit
  914.  
  915.  
  916.  
  917. -- part 212 (button)
  918. -- low flags: 00
  919. -- high flags: 2000
  920. -- rect: left=26 top=74 right=93 bottom=90
  921. -- title width / last selected line: 0
  922. -- icon id / first selected line: 0 / 0
  923. -- text alignment: 1
  924. -- font id: 0
  925. -- text size: 12
  926. -- style flags: 0
  927. -- line height: 16
  928. -- part name: FIND Speeds
  929. ----- HyperTalk script -----
  930. on mouseUp
  931.   hide card window
  932.   ask "Enter text to search  'Speeds:'  field for:"
  933.   put it into searchtext
  934.   if it is empty then CleanExit
  935.   else
  936.     show card window
  937.     get last item of the screenRect
  938.     if it > 342 then show message box at 20,357
  939.     else
  940.       show message box at 21,301
  941.     end if
  942.     put "Click the mouse to stop the searching..."
  943.     show card window
  944.     repeat until the mouseclick
  945.       set cursor to busy
  946.       Find string searchtext in background field ID 74
  947.       set cursor to Busy
  948.       wait 1 seconds
  949.       set cursor to Busy
  950.       visual effect dissolve to gray
  951.       set cursor to Busy
  952.       visual effect scroll left
  953.       set cursor to Busy
  954.     end repeat
  955.     hide message box
  956.   end if
  957. end mouseUp
  958.  
  959. on CleanExit
  960.   hide message box
  961.   show card window
  962. end CleanExit
  963.  
  964.  
  965.  
  966. -- part 213 (button)
  967. -- low flags: 00
  968. -- high flags: 2000
  969. -- rect: left=26 top=92 right=111 bottom=90
  970. -- title width / last selected line: 0
  971. -- icon id / first selected line: 0 / 0
  972. -- text alignment: 1
  973. -- font id: 0
  974. -- text size: 12
  975. -- style flags: 0
  976. -- line height: 16
  977. -- part name: FIND location
  978. ----- HyperTalk script -----
  979. on mouseUp
  980.   hide card window
  981.   ask "Enter text to search  'Location:'  field for:"
  982.   put it into searchtext
  983.   if it is empty then CleanExit
  984.   else
  985.     show card window
  986.     get last item of the screenRect
  987.     if it > 342 then show message box at 20,357
  988.     else
  989.       show message box at 21,301
  990.     end if
  991.     put "Click the mouse to stop the searching..."
  992.     show card window
  993.     repeat until the mouseclick
  994.       set cursor to busy
  995.       Find string searchtext in background field ID 103
  996.       set cursor to Busy
  997.       wait 1 seconds
  998.       set cursor to Busy
  999.       visual effect dissolve to gray
  1000.       set cursor to Busy
  1001.       visual effect scroll left
  1002.       set cursor to Busy
  1003.     end repeat
  1004.     hide message box
  1005.   end if
  1006. end mouseUp
  1007.  
  1008. on CleanExit
  1009.   hide message box
  1010.   show card window
  1011. end CleanExit
  1012.  
  1013.  
  1014.  
  1015. -- part 214 (button)
  1016. -- low flags: 00
  1017. -- high flags: 2000
  1018. -- rect: left=26 top=110 right=129 bottom=90
  1019. -- title width / last selected line: 0
  1020. -- icon id / first selected line: 0 / 0
  1021. -- text alignment: 1
  1022. -- font id: 0
  1023. -- text size: 12
  1024. -- style flags: 0
  1025. -- line height: 16
  1026. -- part name: FIND Sysop
  1027. ----- HyperTalk script -----
  1028. on mouseUp
  1029.   hide card window
  1030.   ask "Enter text to search  'Sysop:'  field for:"
  1031.   put it into searchtext
  1032.   if it is empty then CleanExit
  1033.   else
  1034.     show card window
  1035.     get last item of the screenRect
  1036.     if it > 342 then show message box at 20,357
  1037.     else
  1038.       show message box at 21,301
  1039.     end if
  1040.     put "Click the mouse to stop the searching..."
  1041.     show card window
  1042.     repeat until the mouseclick
  1043.       set cursor to busy
  1044.       Find string searchtext in background field ID 75
  1045.       set cursor to Busy
  1046.       wait 1 seconds
  1047.       set cursor to Busy
  1048.       visual effect dissolve to gray
  1049.       set cursor to Busy
  1050.       visual effect scroll left
  1051.       set cursor to Busy
  1052.     end repeat
  1053.     hide message box
  1054.   end if
  1055. end mouseUp
  1056.  
  1057. on CleanExit
  1058.   hide message box
  1059.   show card window
  1060. end CleanExit
  1061.  
  1062.  
  1063.  
  1064. -- part 215 (button)
  1065. -- low flags: 00
  1066. -- high flags: 2000
  1067. -- rect: left=26 top=128 right=147 bottom=90
  1068. -- title width / last selected line: 0
  1069. -- icon id / first selected line: 0 / 0
  1070. -- text alignment: 1
  1071. -- font id: 0
  1072. -- text size: 12
  1073. -- style flags: 0
  1074. -- line height: 16
  1075. -- part name: FIND Public
  1076. ----- HyperTalk script -----
  1077. on mouseUp
  1078.   hide card window
  1079.   ask "Enter text to search  'Public:'  field for:"
  1080.   put it into searchtext
  1081.   if it is empty then CleanExit
  1082.   else
  1083.     show card window
  1084.     get last item of the screenRect
  1085.     if it > 342 then show message box at 20,357
  1086.     else
  1087.       show message box at 21,301
  1088.     end if
  1089.     put "Click the mouse to stop the searching..."
  1090.     show card window
  1091.     repeat until the mouseclick
  1092.       set cursor to busy
  1093.       Find string searchtext in background field ID 76
  1094.       set cursor to Busy
  1095.       wait 1 seconds
  1096.       set cursor to Busy
  1097.       visual effect dissolve to gray
  1098.       set cursor to Busy
  1099.       visual effect scroll left
  1100.       set cursor to Busy
  1101.     end repeat
  1102.     hide message box
  1103.   end if
  1104. end mouseUp
  1105.  
  1106. on CleanExit
  1107.   hide message box
  1108.   show card window
  1109. end CleanExit
  1110.  
  1111.  
  1112.  
  1113. -- part 216 (button)
  1114. -- low flags: 00
  1115. -- high flags: 2000
  1116. -- rect: left=26 top=146 right=165 bottom=90
  1117. -- title width / last selected line: 0
  1118. -- icon id / first selected line: 0 / 0
  1119. -- text alignment: 1
  1120. -- font id: 0
  1121. -- text size: 12
  1122. -- style flags: 0
  1123. -- line height: 16
  1124. -- part name: FIND fee
  1125. ----- HyperTalk script -----
  1126. on mouseUp
  1127.   hide card window
  1128.   ask "Enter text to search  'Fee:'  field for:"
  1129.   put it into searchtext
  1130.   if it is empty then CleanExit
  1131.   else
  1132.     show card window
  1133.     get last item of the screenRect
  1134.     if it > 342 then show message box at 20,357
  1135.     else
  1136.       show message box at 21,301
  1137.     end if
  1138.     put "Click the mouse to stop the searching..."
  1139.     show card window
  1140.     repeat until the mouseclick
  1141.       set cursor to busy
  1142.       Find string searchtext in background field ID 77
  1143.       set cursor to Busy
  1144.       wait 1 seconds
  1145.       set cursor to Busy
  1146.       visual effect dissolve to gray
  1147.       set cursor to Busy
  1148.       visual effect scroll left
  1149.       set cursor to Busy
  1150.     end repeat
  1151.     hide message box
  1152.   end if
  1153. end mouseUp
  1154.  
  1155. on CleanExit
  1156.   hide message box
  1157.   show card window
  1158. end CleanExit
  1159.  
  1160.  
  1161.  
  1162. -- part 217 (button)
  1163. -- low flags: 00
  1164. -- high flags: 2000
  1165. -- rect: left=26 top=164 right=183 bottom=90
  1166. -- title width / last selected line: 0
  1167. -- icon id / first selected line: 0 / 0
  1168. -- text alignment: 1
  1169. -- font id: 0
  1170. -- text size: 12
  1171. -- style flags: 0
  1172. -- line height: 16
  1173. -- part name: FIND nodes
  1174. ----- HyperTalk script -----
  1175. on mouseUp
  1176.   hide card window
  1177.   ask "Enter text to search  'Nodes:'  field for:"
  1178.   put it into searchtext
  1179.   if it is empty then CleanExit
  1180.   else
  1181.     show card window
  1182.     get last item of the screenRect
  1183.     if it > 342 then show message box at 20,357
  1184.     else
  1185.       show message box at 21,301
  1186.     end if
  1187.     put "Click the mouse to stop the searching..."
  1188.     show card window
  1189.     repeat until the mouseclick
  1190.       set cursor to busy
  1191.       Find string searchtext in background field ID 189
  1192.       set cursor to Busy
  1193.       wait 1 seconds
  1194.       set cursor to Busy
  1195.       visual effect dissolve to gray
  1196.       set cursor to Busy
  1197.       visual effect scroll left
  1198.       set cursor to Busy
  1199.     end repeat
  1200.     hide message box
  1201.   end if
  1202. end mouseUp
  1203.  
  1204. on CleanExit
  1205.   hide message box
  1206.   show card window
  1207. end CleanExit
  1208.  
  1209.  
  1210.  
  1211. -- part 218 (button)
  1212. -- low flags: 00
  1213. -- high flags: 2000
  1214. -- rect: left=26 top=182 right=201 bottom=90
  1215. -- title width / last selected line: 0
  1216. -- icon id / first selected line: 0 / 0
  1217. -- text alignment: 1
  1218. -- font id: 0
  1219. -- text size: 12
  1220. -- style flags: 0
  1221. -- line height: 16
  1222. -- part name: FIND since
  1223. ----- HyperTalk script -----
  1224. on mouseUp
  1225.   hide card window
  1226.   ask "Enter text to search  'Since:'  field for:"
  1227.   put it into searchtext
  1228.   if it is empty then CleanExit
  1229.   else
  1230.     show card window
  1231.     get last item of the screenRect
  1232.     if it > 342 then show message box at 20,357
  1233.     else
  1234.       show message box at 21,301
  1235.     end if
  1236.     put "Click the mouse to stop the searching..."
  1237.     show card window
  1238.     repeat until the mouseclick
  1239.       set cursor to busy
  1240.       Find string searchtext in background field ID 86
  1241.       set cursor to Busy
  1242.       wait 1 seconds
  1243.       set cursor to Busy
  1244.       visual effect dissolve to gray
  1245.       set cursor to Busy
  1246.       visual effect scroll left
  1247.       set cursor to Busy
  1248.     end repeat
  1249.     hide message box
  1250.   end if
  1251. end mouseUp
  1252.  
  1253. on CleanExit
  1254.   hide message box
  1255.   show card window
  1256. end CleanExit
  1257.  
  1258.  
  1259.  
  1260. -- part 219 (button)
  1261. -- low flags: 00
  1262. -- high flags: 2000
  1263. -- rect: left=238 top=182 right=201 bottom=302
  1264. -- title width / last selected line: 0
  1265. -- icon id / first selected line: 0 / 0
  1266. -- text alignment: 1
  1267. -- font id: 0
  1268. -- text size: 12
  1269. -- style flags: 0
  1270. -- line height: 16
  1271. -- part name: FIND verified
  1272. ----- HyperTalk script -----
  1273. on mouseUp
  1274.   hide card window
  1275.   ask "Enter text to search  'Verified:'  field for:"
  1276.   put it into searchtext
  1277.   if it is empty then CleanExit
  1278.   else
  1279.     show card window
  1280.     get last item of the screenRect
  1281.     if it > 342 then show message box at 20,357
  1282.     else
  1283.       show message box at 21,301
  1284.     end if
  1285.     put "Click the mouse to stop the searching..."
  1286.     show card window
  1287.     repeat until the mouseclick
  1288.       set cursor to busy
  1289.       Find string searchtext in background field ID 88
  1290.       set cursor to Busy
  1291.       wait 1 seconds
  1292.       set cursor to Busy
  1293.       visual effect dissolve to gray
  1294.       set cursor to Busy
  1295.       visual effect scroll left
  1296.       set cursor to Busy
  1297.     end repeat
  1298.     hide message box
  1299.   end if
  1300. end mouseUp
  1301.  
  1302. on CleanExit
  1303.   hide message box
  1304.   show card window
  1305. end CleanExit
  1306.  
  1307.